home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0386.arc / ADA3.LTG < prev    next >
Text File  |  1986-03-03  |  640b  |  23 lines
  1.  
  2.                             Listing 3
  3.  
  4.      for i in 1..100 loop
  5.           for j in 1000..1009 loop
  6.                for k in 5..9 loop
  7.                     x := z(1,j,k) * b ;
  8.                     if x >10.0 then raise data_error;
  9.                     end if ;
  10.                end loop ;
  11.           end loop ;
  12.      end loop ;
  13.  
  14. -- elsewhere
  15.  
  16. exception
  17.      data_error => statements to clean up error;
  18. end ;
  19.  
  20. -- iεá structured programminτ aε erro≥ founΣ iε thσá inne≥á loo≡
  21. -- mus⌠á bσ carrieΣ t∩ thσ oute≥ loo≡ b∙ ß flaτ oµ somσ sor⌠á anΣ
  22. -- then queried as to its status
  23.